home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / os2 / rb3774 / record / test.cmd < prev   
Encoding:
Text File  |  1992-06-28  |  624 b   |  23 lines
  1. /*  */
  2. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. '@echo off'
  6.  
  7. RetCode = SysCreateObject( "RecordFolder", "People Folder", "<WP_DESKTOP>", " ")
  8.  
  9. if RetCode then
  10.    say 'Folder Object created'
  11. else do
  12.    say 'Error creating object'
  13.    exit(1)
  14.    end
  15.  
  16. /* Required for GA problem */
  17. RetCode = SysCreateObject( "Record", "DUMMY", "<WP_NOWHERE>", "OBJECTID=<RECORD_0>")
  18. RetCode = SysCreateObject( "RecordFolder", "DUMMY", "<WP_NOWHERE>", "OBJECTID=<RECFLDER_0>")
  19.  
  20. say 'A Record Folder has been created, select the context menu'
  21. say '<Telephone List - Find> and test it.'
  22.  
  23.